Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00090_Next Song.ls

Text File | 2000-03-27 | 327 b | 24 lines

property pSpr, pRollMember, pOrigMember

on beginSprite me
  pSpr = sprite(me.spriteNum)
  pOrigMember = pSpr.member
  pRollMember = nextMember(pOrigMember)
end

on mouseEnter me
  pSpr.member = pRollMember
end

on mouseLeave me
  pSpr.member = pOrigMember
end

on mouseUp
  currentSong(1)
end

on mouseDown
  clickSound()
end